(deftemplate note
    (slot matematica)
    (slot informatica)
    (slot fizica)
    (slot chimie)
    (slot biologie)
    (slot geografie)
    (slot desen))

(deftemplate facultate
    (slot facultate))

(assert(note(matematica 7)(informatica 10)(fizica 10)(chimie 10)(biologie 10)(geografie 10)
        (desen 10)))

(defrule mate-info (note(matematica ?mat)(informatica ?inf)) (test(>= ?mat 8)) (test(>= ?inf 8)) =>
    (printout t "Va recomand sa va puneti dosarul la Facultatea de Matematica si Informatica" crlf))

(defrule fizica (note(matematica ?mat)(fizica ?fiz)) (test(>= ?mat 8)) (test(>= ?fiz 8)) =>
    (printout t "Va recomand sa va puneti dosarul la Facultatea de Fizica" crlf))
	
(defrule chimie (note(matematica ?mat)(chimie ?chi)) (test(>= ?mat 8)) (test(>= ?chi 8)) =>
    (printout t "Va recomand sa va puneti dosarul la Facultatea de Chimie" crlf))
	
(defrule biologie (note(biologie ?bio)) (test(>= ?bio 8)) =>
    (printout t "Va recomand sa va puneti dosarul la Facultatea de Biologie" crlf))
	
(defrule geografie (note(geografie ?geo)) (test(>= ?geo 8)) =>
    (printout t "Va recomand sa va puneti dosarul la Facultatea de Geografie" crlf))
	
(defrule desen (note(desen ?des)) (test(>= ?des 8)) =>
    (printout t "Va recomand sa va puneti dosarul la Facultatea de Arte si Design" crlf))
	
(run)
	